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function slMultiCompare ($StringA, $StringB) 

SL platforms: 4.01 ; LastRev: 2002-Aug-21 
dependencies: slWildCompare ( ) , slQuestionCompare ( ) 

compares one string to another, and supports '*' and '?' as a wildcards 
stringA: constant string 
stringB: variable string 

stringB can contain wildcards '*' and '?' 

stringB can be an array or a single string containing multiple elements, 
each separated by a semi-colon 
dim $ArrayB, $elementB 
$slMultiCompare=0 ; default false 
if $StringA and $StringB 
$StringA=trim ( $StringA) 

if vartype ($StringB) <8192 ; StringB is a string 

$ArrayB=split ($StringB+ ' ; 1 , 1 ; 1 ) ; remove last ; added for split to achieve at least 
one element 

redim preserve $ArrayB [ubound ($ArrayB) -1] 
else ; StringB is an array 

$ArrayB=$StringB 
endif 

for each $ElementB in $ArrayB 
$ElementB=trim ($elementB) 
select 

case $ElementB=' * ' ; single wildcard - matches everything 

$slMultiCompare=l 

return ; true 
case $StringA=$ElementB 

$slMultiCompare=l 

return ; true 
case instr ($ElementB, ' * ' ) 

if slWildCompare ($StringA, $ElementB) 
$slMultiCompare=l 
return ; true 

endif 

case instr ($ElementB, '?' ) 

if slWildCompare ($StringA, $ElementB) 

$slMultiCompare=l 

return ; true 
endif 

case 1 ; no wildcards and we've already determined that strings don't match 
; do nothing - proceed to next array element 
endselect 
next 
endif 
endfunction 

function slWildCompare ($StringA, $StringB) 

; SL platforms: 4.01 ; LastRev: 2002-Aug-21 
; dependencies: slQuestionCompare ( ) 

; Do not call this function directly — use slMultiCompare ( ) instead 
; compares one string to another, and supports wildcards 
; stringA: constant string 

; stringB: variable string (can contain wildcards '*' and '?') 

; could add case-sensitivity option in future... 

dim $LenStringA, $lenStringB, $QuestionLoc, $AsteriskLoc 

dim $GlobArray, $LenGAE, $lenGAEf irst, $lenGAElast, $GAUB 

$slWildCompare=0 ; default to no match 

if $StringA and $StringB 

$StringA=trim ( $StringA) 

$LenStringA=len ($StringA) 

if $StringB='*' ; single wildcard - matches everything 
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$slWildCompare=l 

return ; true 
endif 

if $StringA=$StringB ; exact match 

$slWildCompare=l 

return ;true 
else ; not exact match 

$asteriskLoc=instr ($StringB, ' * ' ) 

$questionLoc=instr ($StringB, ' ? ' ) 

if not ($asteriskLoc or $questionLoc) 

return ; false: no wildcards - no reason to continue 

endif 

$lenStringB=len ($StringB) 
$GlobArray=split ($StringB+ ' *','*' ) 
$GAUB=ubound ($GlobArray) -1 

redim preserve $GlobArray [$GAUB] ; remove last * added for split to achieve at 
least one element 

; first Glob - special case test 
$lenGAEfirst=len ($GlobArray [0] ) 

if not slQuestionCompare (left ($StringA, $lenGAEf irst) , $GlobArray [ 0 ] ) 

return ; false 
endif 

; last Glob - special case test 
$lenGAElast=len ( $GlobArray [ $ GAUB ] ) 

if not slQuestionCompare (right ($StringA, $lenGAElast) , $GlobArray [ $GAUB] ) 

return ; false 
endif 

$StringA=substr ($StringA, $lenGAEf irst+1, len ($StringA) -$lenGAElast) ; removed final 
-1 (was failing on *abc*) 

if $GAUB<2 ; less than 2 Globs - preceeding special case tests determined result 

$slWildCompare=l 

return ; true 
endif 

for $index=l to $GAUB-1 ; process elements 2 through next-to-last 
$lenGAE=len($GlobArray[$index] ) 
if len ($StringA) <$lenGAE 
return ; false 

while len ($StringA) and not 
slQuestionCompare (left ($StringA, $lenGAE) , $GlobArray [$index] ) 
$StringA=substr ( $StringA, 2 ) 

if not slQuestionCompare (left ($StringA, $lenGAE) , $GlobArray [$index] ) 

return ; false 
else 

$StringA=substr ($StringA, $lenGAE+l) 
$slWildCompare=l 
endfunction 

function slQuestionCompare ($StringA, $StringB) 
; SL platforms: 4.01 ; LastRev: 2002-Aug-21 

; Do not call this function directly — use slMultiCompare ( ) or slWildCompare () instead 
; compares one string to another, and supports ' ? ' as a wildcard 
; StringA - constant 
; StringB - variable 
dim $index, $StringBchar 
$slQuestionCompare=l 
if $StringA and $StringB 
if $StringA=$StringB 

$slQuestionCompare=l ; true 
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$slQuestionCompare=0 ; default no match 

if not instr ($StringB, ' ? ' ) ; no question marks 

return ; false 
else 

; length of both strings must be same to continue 
if len($StringA)Olen($StringB) ; different lengths 

return ; false 
endif 

; perform comparison character-by-character 
for $index=l to len ($StringA) 

$StringBchar=substr ($StringB, Sindex, 1) 

if (substr ($StringA, $index, 1) <>$StringBchar) and $StringBchar<>' ? ' 
return ; false 

$slQuestionCompare=l ; true 



endif 
endif 
endif 
endfunction 
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$CurrentPowerProf ileValue=readvalue ( 'HKCU\Control 
Panel\PowerCfg' , ' CurrentPowerPolicy ' ) PIO 1 1 A 

$CurrentPowerProfileName=readvalue('HKCU\Control MLl. 1 1A 

Panel\PowerCfg\PowerPolicies\ ' +$CurrentPowerProf ileValue, 'Name ' ) 

select 

case instr ($SiProcessorNameString, 'mobile' ) ; Mobile CPU type 
; highly confident that this is a portable computer! 
; platforms tested on: XP 

$ClientClassRule='rule 1: Mobile CPU type -> portable' 
$SiComputerType= 1 Portable ' 
$ClientClass='Port' 
case @INWIN=1 and 

O+readvalue ( ' HKLM\System\CurrentControlSet\Services\pcmcia ' , ' Start ' ) =4 ; NT & PCMCIA 
kernel driver not started 

; highly confident that this is a desktop computer! 

; platforms tested on: NT, 2000, XP 

$ClientClassRule='rule 2: PCMCIA driver not started (NT) -> desktop' 
$SiComputerType= 1 Desktop ' 
$ClientClass=' Desk' 
case @INWIN=2 and 

' '+readvalue ( 1 HKLM\System\CurrentControlSet\Control\InstalledFiles ' , ' PCCard.vxd' ) =' ' ; 9x 
& PCMCIA kernel driver not started 

; highly confident that this is a desktop computer! 

; platforms tested on: 95, 98, Me 

$ClientClassRule='rule 3: PCMCIA driver not started (9x) -> desktop' 
$SiComputerType= ' Desktop ' 
$ClientClass=' Desk' 
case $0S<>'NT' and $SiBatteryState=128 ; no battery present 

; fairly confident that this is a desktop computer (it could be a laptop with the 
battery removed) . 

; platforms tested on: 

$ClientClassRule='rule 4: No system battery deteted -> desktop' 

$SiComputerType= ' Desktop ' 

$ClientClass='Desk' 

case slGetServiceStartup ( 'UPS ' ) = 'Automatic' ; Built-in UPS service on 2000/XP 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule='rule 5: built-in UPS service is automatic -> desktop' 
$SiComputerType= ' Desktop ' 
$ClientClass='Desk' 
case slGetServiceStartup (' LiebertM' ) ='Automatic ' ; Liebert MultiLink 3.0 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule='rule 6: Liebert MultiLink UPS service is automatic -> desktop' 
$SiComputerType= ' Desktop ' 
$ClientClass=' Desk' 

case slGetServiceStartup('APCPBEAgent')='Automatic' ; APC PowerChute Business 
Edition 6.1 

; highly confident that this is a desktop computer (who'd install UPS software on 
laptop?) 

; platforms tested on: XP, 2000 

$ClientClassRule='rule 7: APC PowerChute Business Edition UPS service is 
automatic -> desktop' 

$SiComputerType= ' Desktop ' 
$ClientClass=' Desk' 

case slGetServiceStartup ( 'APC UPS Service ')= 'Automatic ' ; APC PowerChute Personal 
Edition 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 
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; platforms tested on: XP, 2000 

$ClientClassRule='rule 8: APC PowerChute Business Edition UPS service is 
automatic -> desktop' 

$SiComputerType= ' Desktop ' 

$ClientClass=' Desk' 
case $CurrentPowerProfileName='APC USB UPS' 

; highly confident that this is a desktop computer (who'd install UPS software on 
a laptop?) 

; ***$$ what about other UPS brands? What about APC non-USB models? 
; platforms tested on: XP, 2000 

$ClientClassRule='rule 9: APC USB UPS power scheme -> desktop' 
$SiComputerType= ' Desktop ' 
$ClientClass=' Desk' 

case $CurrentPowerProfileName=' Portable/Laptop' or $CurrentPowerProf ileName= 'Max 
Battery' 

; somewhat confident that this is a portable computer. This setting is user 
profile-specific and can be changed 

; platforms tested on: XP, 2000 

$ClientClassRule='rule 10: portable/laptop or max battery power scheme -> 
portable ' 

$SiComputerType= ' Portable ' 
$ClientClass= ' Port ' 



; At this point, here is what we know: 

Not a mobile CPU type 
; The Portable/Laptop power scheme is not selected 

It does have PCMCIA sockets. 
; 9x, 2000 & XP systems do not have a battery present 

$ClientClassRule='rule 11: default -> portable' 
$SiComputerType= ' Portable ' 
$ClientClass= ' Port ' 



case 1 



endselect 
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